home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _GUICtrlEditGetSel.au3 < prev    next >
Text File  |  2007-09-08  |  1KB  |  38 lines
  1. #include <GUIConstants.au3>
  2. #include <GuiEdit.au3>
  3.  
  4. opt('MustDeclareVars', 1)
  5.  
  6. Dim $myedit, $Status, $msg, $Btn_GET, $a_sel
  7.  
  8. GUICreate("Edit Get Line Count", 392, 254)
  9.  
  10. $myedit = GUICtrlCreateEdit("First line" & @CRLF, 140, 32, 121, 97, BitOR($ES_AUTOVSCROLL, $WS_VSCROLL, $ES_MULTILINE))
  11. GUICtrlSetLimit($myedit, 1500)
  12. $Status = GUICtrlCreateLabel("", 0, 234, 392, 20, BitOR($SS_SUNKEN, $SS_CENTER))
  13. $Btn_GET = GUICtrlCreateButton("Get Sel", 150, 130, 90, 40, $BS_MULTILINE)
  14.  
  15. ; will be append dont' forget 3rd parameter
  16. GUICtrlSetData($myedit, "2nd line" & @CRLF & "3rd line" & @CRLF & "4th line" & @CRLF & _
  17.         "5th line" & @CRLF & "6th line" & @CRLF & "7th line" & @CRLF & "8th line" & @CRLF & "9th line", 1)
  18.  
  19. GUISetState()
  20.  
  21. ; Run the GUI until the dialog is closed
  22. While 1
  23.     $msg = GUIGetMsg()
  24.     Select
  25.         Case $msg = $GUI_EVENT_CLOSE
  26.             ExitLoop
  27.         Case $msg = $Btn_GET
  28.             $a_sel = _GUICtrlEditGetSel ($myedit)
  29.             If ($a_sel == $EC_ERR) Then
  30.                 GUICtrlSetData($Status, "Error getting sel positions")
  31.             ElseIf (IsArray($a_sel)) Then
  32.                 GUICtrlSetData($Status, "Starting Pos: " & $a_sel[1] & " Ending Pos: " & $a_sel[2])
  33.             Else
  34.                 GUICtrlSetData($Status, "")
  35.             EndIf
  36.     EndSelect
  37. WEnd
  38.